home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 237
/
237.d81
/
free cell.dot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
11KB
|
465 lines
10 dv=peek(186):ifdv<8thendv=8
11 print"[144]":a=rnd(-ti)
12 uc=4613:hc=4675:hk=4739
13 dimx,y,cd(52),x1(15),y1(52),cr(8,52),cv(52),cc(52)
14 gosub5010
90 sys4608,224:.ed:.br,1:gosub500
91 .ol,243*256
99 gosub5030:.br,0:.mp,6,0
100 .do:.ee:.wb:.un e%:.tx,0
101 ife%<>-1then30000
102 .of: poke53272,22: end
200 gosub300
202 e%=i%*2
299 .er:return
300 .bx,14,25,10,14,160,2:.tx,128+2
302 .pc,11,"quit game?"
304 .pc,13,"yes no"
306 .mz,2,17,19,21,22,13,13,2,128+0,"yn"
310 i%=sl%-2:return
500 dimsy(13),sx(7),sh(7):forx=2to7
501 poke53287+x,7:poke2040+x,137
502 px(x)=53248+x*2:py(x)=px(x)+1
503 next
504 sh(6)=4:sh(7)=4
506 fory=0to13:sy(y)=106+y*8:next
508 fory=0to7:sx(y)=(32+y*40)and255:next
510 poke53271,4:poke53277,4:poke53275,4
514 goto550
515 dn=0:iflx>7then541
516 poke53269,3:ly=cr(lx,0):lz=ly
517 ifly>14thenly=14
520 ifly<1thendn=1:return
526 pokepx(2),sx(lx):pokepy(2),sy(ly-1)
527 poke53264,(peek(53264)and3)orsh(lx)
532 poke53269,7
540 ly=lz:return
541 x=lx-7:ifcr(8,x)=0thendn=1:return
542 iflx>11thendn=1:return
543 pokepx(2),sx(lx-8)-8:pokepy(2),58
544 lx=lx-8:goto527
550 forx=1to13:cv(x)=x:cv(x+13)=x
552 cv(x+26)=x:cv(x+39)=x
554 cc(x)=0:cc(x+13)=1:cc(x+26)=1
556 next
600 pokemv+1,35
601 forx=0to7:.rd,x+1,x1(x),x1(x)+3,7,24:next
602 forx=xto11:x1(x)=x1(x-8)-1:x1(x+4)=x1(x-4)
603 .rd,x+1,x1(x),x1(x)+3,1,5
604 .rd,x+5,x1(x+4),x1(x+4)+3,1,5
605 next
607 .rd,17,0,6,0,0
609 .rd,18,7,15,0,0
610 .rd,19,37,39,0,0:return
699 rem" getcard
700 [139]lx[177]7[167]720
701 ly[178]cr(lx,0):[139]ly[178]0[167][144]
702 cd[178]cr(lx,ly):x0[178]lx
704 cr(lx,0)[178]cr(lx,0)[171]1
706 ly[178]cr(lx,0):
707 [139]ly[178]0[167]:.bx,x1(lx),x1(lx)[170]3,6,11,128,11:[137]712
708 .op,cr(lx,ly),x1(lx),y1(ly)
710 .bx,x1(lx),x1(lx)[170]3,y1(ly)[170]5,y1(ly)[170]5,128,11
712 .ss,208:[142]
720 [139]lx[177]11[167]740
722 x[178]lx[171]7:cd[178]cr(8,x):cr(8,x)[178]0
724 .bx,x1(lx),x1(lx)[170]3,1,5,160,2
726 .ss,208:[142]
740 [144]
800 [139]lx[177]7[167]820
801 .tx,128:.p@,0,0,[196](cv(cd))[170][196](cc(cd))
802 [139]cr(lx,0)[178]0[167]808
803 [139]cv(cd)[179][177]cv(cr(lx,cr(lx,0))[171]1)[167]lx[178]x0:[137]808
804 [139]cc(cd)[178]cc(cr(lx,cr(lx,0)))[167]lx[178]x0
808 cr(lx,0)[178]cr(lx,0)[170]1
809 ly[178]cr(lx,0)
810 cr(lx,ly)[178]cd
812 .sr,208:.op,cd,x1(lx),y1(ly)
814 [142]
820 [139]lx[177]11[167]840
822 lx[178]lx[171]7:[139]cr(8,lx)[179][177]0[167]lx[178]x0:[137]808
824 cr(8,lx)[178]cd:cr(8,0)[178]cr(8,0)[170]1
826 .sr,208
828 .op,cd,x1(lx[170]7),1
830 [142]
840 [139]lx[177]15[167][144]
841 x[178]lx[171]7:
842 [139]cr(8,x)[178]0[175]cv(cd)[178]1[167]846
843 [139]cc(cr(8,x))[179][177]cc(cd)[167]lx[178]x0:[137]808
844 [139]cv(cr(8,x))[179][177]cv(cd[171]1)[167]lx[178]x0:[137]808
846 cr(8,x)[178]cd
848 .sr,208:.op,cd,x1(lx),1
849 [142]
900 [139]lx[177]7[167]:.of:[151]53272,22:[144]
1000 .bx,0,8,0,0,255,0
1001 .p@,8,0,"stopundo ":.ss,232
1010 [141]2020
1060 pl[178]0:[139]dm[178]2[167]1065
1061 .bx,14,25,11,13,160,9
1062 .tx,9[170]128:.pc,12,"shuffling"
1065 [141]5020:[151]mv[170]1,35:[151]mv[170]2,19
1075 .do
1080 :.do
1081 ::.p1,2040,136:.p1,2041,136
1082 ::.p1,53287,7:.p1,mv[170]3,0
1100 ::.do:.ma:.kp,"sux"
1101 ::[139]r2%[167][141]6500
1102 ::.un cr% [176] i%:[139]i%[167]1150
1103 ::[139]cr%[177]15[167]i%[178]cr%[171]16:[137]1150
1104 ::lx[178]cr%[171]1:[141]515:gx[178]cr%[171]1
1105 ::[139]dn[178]1[167]1100
1106 ::.p1,2040,138:.p1,2041,138
1107 ::.p1,53287,8:.p1,mv[170]3,3
1108 ::tm[178]ti[170]30
1110 ::.do:.ma
1111 ::.un cr%:[139]tm[179]ti[176]cr%[171]1[179][177]gx[167]1119
1112 ::
1113 ::[139]cr(8,0)[178]4[167]1110
1114 ::[129]x[178]1[164]4:[139]cr(8,x)[178]0[167]y[178]x:x[178]4
1115 ::[130]:lx[178]y[170]7:[137]1120
1119 ::lx[178]cr%[171]1
1120 ::.ss,216:[141]3000:pl[178]dn
1121 ::[139]dn[178]0[167][141]3500:pl[178]dn
1122 ::[139]dn[178]0[167]1110
1123 ::[151]53269,3
1124 ::[129]x[178]5[164]8
1125 ::[139]cv(cr(8,x))[179][177]13[167]x[178]99
1126 ::[130]:[139]x[179][177]100[167]i%[178]4
1150 :.un i%:dn[178]0
1152 :[145]i%[141]1220,2100,1300,4000
1154 .un dn
1156 .er:[142]
1200 .ss,208
1201 .bx,12,26,10,14,160,6:.tx,6[170]128
1202 .pc,11,"restart game?"
1204 [141]304:.sr,208
1206 [139]i%[167]dm[178]2
1210 dn[178]i%:[142]
1220 .ss,208
1221 .bx,15,24,10,14,160,6:.tx,6[170]128
1222 .p@,16,11,"new gameletrestartletcancel"
1224 .mu,16,23,11,13,6,128,"nrc"
1225 .sr,208
1226 [139]sl%[178]3[167]dn[178]0:[142]
1228 [139]sl%[178]1[167]:.of:[138]
1229 [129]y[178]0[164]52:[129]x[178]0[164]8:cr(x,y)[178]0:[130]:[130]
1230 s$[178][196]([181]([187](1)[172]32000)[170]1)
1232 x[178][187]([171][197](s$))
1234 .bx,22,35,0,0,160,0
1235 .p@,22,0,"game: "[170]s$
1240 dm[178]sl%:dn[178]1:[142]
1256 [137]6000
1299 dm[178]sl%:dn[178]1:[142]
1300 .ss,208
1301 [141]300
1302 e%[178]i%[172]2:dn[178]i%
1303 .sr,208
1304 [142]
1400 [139]cr(8,0)[178]4[167]1110
1402 y[178]0:[129]x[178]1[164]4
1404 [139]cr(8,x)[178]0[167]y[178]x:x[178]4
1406 [130]:lx[178]y[170]7:[137]1120
1999 .er:[142]
2000 [142]
2001 x[178][181]([187](1)[172]3200)[170]1
2005 .bx,13,26,10,14,160,0:.tx,128
2010 .pc,11,"choose game:"
2011 s$[178][202]([196](x),2)
2012 .in,17[170]128,13[170]128,6,6,5,s$
2014 x[178][187]([171][197](w$)):.er:s$[178]w$
2015 .bx,22,35,0,0,160,0
2016 .p@,22,0,"game: "[170]w$:.ss,232
2019 dm[178]1:.er:[142]
2020 [139]dm[177]0[167][142]
2022 .ss,208: x[178][181]([187](1)[172]3200)[170]1
2025 .bx,13,26,10,16,160,0:.tx,128
2030 .pc,11,"this game:"
2031 s$[178][202]([196](x),2)
2032 .pc,13,s$:.pc,15,"play change"
2034 .mz,2,14,17,19,24,15,15,0,6[170]128,"pc"
2035 .sr,208
2036 [139]sl%[178]2[167]2005
2045 .bx,22,35,0,0,160,0
2046 .p@,22,0,"game: "[170]s$:.ss,232
2049 .er:[142]
2099 .er:[142]
2100 [143] undo
2102 [139]pl[178]0[167]dn[178]0:[142]
2103 [139]gu[177]0[167]2200
2106 [141]3400:dn[178]0:pl[178]0:[142]
2200 cr(lv,0)[178]lu:cr(gv,0)[178]gu
2202 gu[178]0:pl[178]0:.sr,216:dn[178]0:[142]
2999 .er:[142]
3000 [143] move stuff
3001 dn[178]0:gu[178]0:lu[178]0
3005 [139]gx[177]7[167]3100:cel 2 ..
3006 [139]lx[177]7[167]3200:col 2 cell
3007 [143] col 2 col
3010 cf[178]cr(gx,cr(gx,0))
3012 ct[178]cr(lx,cr(lx,0))
3014 [139]cf[178]ct[167]dn[178]1:[142]
3015 [139]cr(lx,0)[178]0[167]3600:::3020
3016 [139]cv(cf)[179][177]cv(ct)[171]1[167][142]
3018 [139]cc(cf)[178]cc(ct)[167][142]
3020 [141]7000
3026 [141]7020
3030 dn[178]1:[142]
3100 [139]lx[177]7[167]3300:cel 2 cell
3101 [143] cel 2 col
3102 x[178]gx[171]7:cf[178]cr(8,x)
3104 [139]cf[178]0[167]dn[178]1:[142]
3106 ct[178]cr(lx,cr(lx,0)):[139]cr(lx,0)[178]0[167]3112
3108 [139]cv(ct)[179][177]cv(cf)[170]1[167][142]
3110 [139]cc(ct)[178]cc(cf)[167][142]
3112 cr(8,x)[178]0:cr(8,0)[178]cr(8,0)[171]1
3114 [141]7020
3116 .bx,x1(gx),x1(gx)[170]3,1,5,160,2
3119 ch[178]cf
3120 dn[178]1:[142]
3200 [143] col 2 cell
3202 x[178]lx[171]7:ct[178]cr(8,x)
3204 gy[178]cr(gx,0):[139]gy[178]0[167][142]
3206 cf[178]cr(gx,gy)
3208 [139]lx[177]11[167]3230
3210 [139]ct[179][177]0[167][142]
3212 cr(8,x)[178]cf:cr(8,0)[178]cr(8,0)[170]1
3214 [141]7000
3216 .op,cf,x1(lx),1
3222 dn[178]1:[142]
3229 [143] aces
3230 [139]ct[178]0[167]3236
3234 [139]cc(ct)[179][177]cc(cf)[167][142]
3235 [139][181]((ct[171]1)[173]13)[179][177][181]((cf[171]1)[173]13)[167][142]
3236 [139]cv(ct)[179][177]cv(cf)[171]1[167][142]
3238 cr(8,x)[178]cf:ch[178]cf:[137]3214
3300 [143] cel 2 cell
3302 g[178]gx[171]7:cf[178]cr(8,g)
3304 x[178]lx[171]7:ct[178]cr(8,x):[139]ct[178]cf[167]dn[178]1:[142]
3306 [139]lx[177]11[167]3320:aceii
3308 [139]ct[179][177]0[167][142]
3310 cr(8,x)[178]cf:cr(8,g)[178]0
3312 .bx,x1(gx),x1(gx)[170]3,1,5,160,2
3314 .op,cf,x1(lx),1:ch[178]cf
3316 dn[178]1:[142]
3319 [143] aceii
3320 [139]ct[178]0[167]3324
3322 [139]cc(ct)[179][177]cc(cf)[167][142]
3323 [139][181]((cf[171]1)[173]13)[179][177][181]((ct[171]1)[173]13)[167][142]
3324 [139]cv(ct)[179][177]cv(cf)[171]1[167][142]
3326 cr(8,0)[178]cr(8,0)[171]1:[137]3310
3400 [143] undo
3401 gu[178]0
3402 [139]lx[177]7[167]3420
3404 cr(lx,0)[178]cr(lx,0)[171]1
3406 [139]gx[177]7[167]3430
3408 cr(gx,0)[178]cr(gx,0)[170]1
3410 .sr,216
3412 [142]
3420 [139]lx[177]11[167]3440
3422 x[178]lx[171]7:cr(8,x)[178]0:cr(8,0)[178]cr(8,0)[171]1
3424 [137]3406
3430 x[178]gx[171]7:cr(8,x)[178]ch
3434 cr(8,0)[178]cr(8,0)[170]1
3436 [137]3410
3440 x[178]lx[171]7:ca[